﻿Public Class FeuerkrafttabelleLuft115
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 115
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 115
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft115Und70
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 115
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 115
            Case MovementSorts.Transport.ToString.ToUpper
                Return 70
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 70
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 70
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 110
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 110
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft115Schwach
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 95
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 95
            Case MovementSorts.Transport.ToString.ToUpper
                Return 50
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 50
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 80
            Case MovementSorts.Mech.ToString.ToUpper
                Return 80
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 80
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 50
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 80
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 80
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 80
            Case Else
                Return 80
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuftVerSchwach
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 80
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 80
            Case MovementSorts.Transport.ToString.ToUpper
                Return 70
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 70
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 70
            Case MovementSorts.Mech.ToString.ToUpper
                Return 70
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 70
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 70
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 70
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 70
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 70
            Case Else
                Return 70
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft130Und70
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 130
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 130
            Case MovementSorts.Transport.ToString.ToUpper
                Return 70
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 70
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 70
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft130Und100
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 130
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 130
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft120und90
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 120
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 120
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft120Schwach
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 50
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 50
            Case MovementSorts.Transport.ToString.ToUpper
                Return 55
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 55
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 60
            Case MovementSorts.Mech.ToString.ToUpper
                Return 60
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 60
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 55
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 60
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 60
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 60
            Case Else
                Return 60
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft120OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 120
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 120
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft270OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 270
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 270
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft320OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 320
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 320
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft130OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 130
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 130
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft110OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 110
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 110
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft140OhneSchwäche
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 140
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 140
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft_See_110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 110
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 110
            Case MovementSorts.Transport.ToString.ToUpper
                Return 110
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 110
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft_See_140
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 140
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 140
            Case MovementSorts.Transport.ToString.ToUpper
                Return 140
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 140
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft_See_120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 120
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 120
            Case MovementSorts.Transport.ToString.ToUpper
                Return 120
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 120
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleLuft_See_160
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 160
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 160
            Case MovementSorts.Transport.ToString.ToUpper
                Return 160
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 160
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 100
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 100
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 100
        End Select
    End Function
End Class